(ange-ftp-multi-msgs): Add 331-.

diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el
index c895ce9fa269cfd7055fe5310fd36a9583b9a058..f359cbe8d7c88360f623c6caf175c9404cb5de8c 100644 (file)
--- a/lisp/ange-ftp.el
+++ b/lisp/ange-ftp.el
@@ -630,7 +630,7 @@ parenthesized expressions in REGEXP for the components (in that order).")
 ;; Otherwise, ange-ftp will go into multi-skip mode, and never come out.
 
 (defvar ange-ftp-multi-msgs
-  "^220-\\|^230-\\|^226\\|^25.-\\|^221-\\|^200-\\|^530-\\|^4[25]1-"
+  "^220-\\|^230-\\|^226\\|^25.-\\|^221-\\|^200-\\|^331-\\|^4[25]1-\\|^530-"
   "*Regular expression matching messages from the ftp process that start
 a multiline reply.")
 
@@ -856,7 +856,7 @@ SIZE, if supplied, should be a prime number."
 ;;;; Internal variables.
 ;;;; ------------------------------------------------------------
 
-(defconst ange-ftp-version "$Revision: 1.25 $")
+(defconst ange-ftp-version "$Revision: 1.26 $")
 
 (defvar ange-ftp-data-buffer-name " *ftp data*"
   "Buffer name to hold directory listing data received from ftp process.")